(defsetf match-data): store-match-data => set-match-data.

diff --git a/lisp/emacs-lisp/cl-macs.el b/lisp/emacs-lisp/cl-macs.el
index e6656a168b1b438b9b67e920c0953535983ed0df..59873addb4687d7fb68bfd49d5b20feb7951cc6e 100644 (file)
--- a/lisp/emacs-lisp/cl-macs.el
+++ b/lisp/emacs-lisp/cl-macs.el
@@ -1621,7 +1621,7 @@ Example: (defsetf nth (n x) (v) (list 'setcar (list 'nthcdr n x) v))."
 (defsetf mark set-mark t)
 (defsetf mark-marker set-mark t)
 (defsetf marker-position set-marker t)
-(defsetf match-data store-match-data t)
+(defsetf match-data set-match-data t)
 (defsetf mouse-position (scr) (store)
   (list 'set-mouse-position scr (list 'car store) (list 'cadr store)
        (list 'cddr store)))